home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 156 / SGDS 156.2mg / SDGS.156 / A / CT.INTRO (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1994-08-28  |  1.7 KB  |  28 lines  |  [FC] Applesoft BASIC Program (0x0A01)
  1. 10 A$ = "THE CURSE OF TALON":D$ =  CHR$(4)
  2. 12 A =  PEEK(103):B =  PEEK(104): IF B < > PEEK(770) +2  THEN  POKE 769,A: POKE 770,B:B = B +2: POKE 104,B: POKE B *256 +A -1,0: PRINT D$"-CT.INTRO"
  3. 14 A =  PEEK(769):B =  PEEK(770): POKE 1014,A +1: POKE 1015,B:A = B *256 +A +1
  4. 15  PRINT D$"BLOAD CT.SEARCH.PGM,A"A
  5. 20 L1 =  INT((80 - LEN(A$))/2):L2 = 80 - LEN(A$) -L1
  6. 100  GOSUB 8500
  7. 110  PRINT "     A messenger from the New Kingdom was coming to see you.": PRINT 
  8. 120  PRINT "     It was there that you found yourself two years ago, when fortune and       foolishness sent you into exile, and it was there that you found redemption."
  9. 130  PRINT "In tracking down and destroying a vicious Green Dragon, you saved the kingdom   and your honor.  What news might there be from that faraway land?"
  10. 135  GOSUB 8000
  11. 140  PRINT "     'My lord,' the messenger says, 'I was commanded to bring this message to   you with the greatest of speed.  It comes from His Highness the Crown Prince.   Will you hear me?'": PRINT 
  12. 150  PRINT "     The Crown Prince?  'Speak,' you say.": PRINT 
  13. 160  PRINT "     'Thank you, M'Lord.  Thus says His Highness:'": PRINT 
  14. 165  PRINT "     'Once before, Great Warrior, you brought salvation to a land beseiged by a terrible force from without.  Now a greater peril faces us, and this time the"
  15. 170  PRINT "cause of our imminent destruction is our own past.  In the name of my father andthe people of the New Kingdom, I beg you to come to our aid once again...": PRINT 
  16. 175  PRINT "     ...or all may be lost!'"
  17. 180  PRINT : PRINT : GOSUB 9999
  18. 198  PRINT "                          Press [N] to Start a NEW Game                                                  Press [S] to Resume a SAVED Game": PRINT 
  19. 199  INVERSE : PRINT  SPC( 79);: NORMAL 
  20. 200  GET B$: IF B$ < >"S"  AND B$ < >"s"  AND B$ < >"n"  AND B$ < >"N"  THEN 200
  21. 210  PRINT : IF B$ = "S"  OR B$ = "s"  THEN  PRINT D$"CHAIN CT.START.PLAY,@29000"
  22. 220  PRINT D$"CHAIN CT.STORY"
  23. 8000  REM 
  24. 8001  VTAB 23: INVERSE : PRINT  SPC( 27);"PRESS ANY KEY TO CONTINUE"; SPC( 27);: GET B$: NORMAL : PRINT 
  25. 8200  IF X = 1  THEN X = 0: RETURN 
  26. 8500  HOME : INVERSE : PRINT  SPC( L1);A$; SPC( L2): NORMAL : PRINT 
  27. 8510  RETURN 
  28. 9999  INVERSE : PRINT  SPC( 80);: NORMAL : PRINT : RETURN